Interactive CD-ROM & Web Magazine 6/Interactive CD-ROM & Web Magazine 6.iso/pc/immsetup/bin/wizard.dir/00010.ls

Text File | 1996-04-05 | 3.3 KB | 129 lines

global netObj, iswin95, lingoIni, cd, standalone, tobeonline, sockautolog

on startMovie
  set lingoIni to "on startup" & RETURN
  set lingoIni to lingoIni & "  global cd, sockAutolog, toBeOnline" & RETURN
  set lingoIni to lingoIni & "  openXlib  the pathname &  " & numToChar(34) & "netscdde.dll" & numToChar(34) & RETURN
  set lingoIni to lingoIni & "  openXlib  the pathname &  " & numToChar(34) & "fileio.dll" & numToChar(34) & RETURN
  set lingoIni to lingoIni & "  set cd = " & numToChar(34) & char 1 of cd & numToChar(34) & RETURN
  if not netObj then
    set netObj to Netscdde(mnew, "%!)£$$/")
  end if
  set winVer to netObj(mGetWinVersion)
  if value(winVer) > 3.20000000000000018 then
    set iswin95 to 1
  else
    set iswin95 to 0
  end if
  set iswin95 to 1
  set the hilite of cast "autolog" to 1
  set the checkBoxAccess to 0
  set tobeonline to 1
end

on idle
  if iswin95 then
    windows95()
  else
    wind()
  end if
end

on windows95
  if not (the hilite of cast "modem") then
    resetWin95()
  end if
  if the hilite of cast "modem" and not (the hilite of cast "internet") then
    go("Bwin")
  end if
  if the hilite of cast "modem" and the hilite of cast "internet" then
    go("Cwin")
  end if
end

on resetWin95
  go("win95")
  set the hilite of cast "internet" to 0
  set the hilite of cast "modem" to 0
end

on wind
  if not (the hilite of cast "modem") then
    ResetWin()
  end if
  if the hilite of cast "modem" and not (the hilite of cast "internet") then
    go("B")
  end if
  if the hilite of cast "modem" and the hilite of cast "internet" then
    go("C")
  end if
end

on ResetWin
  go("a")
  set the hilite of cast "internet" to 0
  set the hilite of cast "modem" to 0
  set the hilite of cast "autolog" to 1
  set the hilite of cast "manlog" to 0
end

on suoppatasto spriteNum, castDown, handler
  set flegghino to 0
  set SaveCast to the castNum of sprite spriteNum
  set flegghino to suicciacast(spriteNum, SaveCast, castDown)
  repeat while the stillDown
    set flegghino to suicciacast(spriteNum, SaveCast, castDown, flegghino)
  end repeat
  set the castNum of sprite spriteNum to SaveCast
  puppetSprite(spriteNum, 0)
  if flegghino = 1 then
    do(handler)
  end if
end

on suicciacast spriteNum, SaveCast, castDown
  if rollOver(spriteNum) then
    set the castNum of sprite spriteNum to castDown
    updateStage()
    return 1
  else
    set the castNum of sprite spriteNum to SaveCast
    updateStage()
    return 0
  end if
end

on Reject
  alert("Hai scelto di non andare ''online'' ma se cambi idea puoi riconfigurare Denise lanciando WIZARD.EXE")
  set tobeonline to 0
  set sockautolog to 0
  set lingoIni to lingoIni & "  set toBeOnline = 0" & RETURN
  set lingoIni to lingoIni & "  set sockAutolog = 0" & RETURN
  set lingoIni to lingoIni & "end startup"
  QuitApplication()
end

on SaveConfig
  set tobeonline to 1
  set sockautolog to the hilite of cast "autolog"
  set lingoIni to lingoIni & "  set toBeOnline = 1" & RETURN
  set lingoIni to lingoIni & "  set sockAutolog = " & the hilite of cast "autolog" & RETURN
  set lingoIni to lingoIni & "end startup"
  QuitApplication()
end

on QuitApplication
  WriteLingoIni()
  if not standalone then
    go(1, cd & "\IMM\home")
  else
    quit()
  end if
end

on WriteLingoIni
  set theLingo to FileIO(mnew, "write", the pathName & "lingo.ini")
  put theLingo(mWriteString, lingoIni)
  put theLingo(mdispose)
end